home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / krieger.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  795 b   |  37 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transposed by,..
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print " Johann Krieger "
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 40
  11. read a
  12. read b
  13. c = b/3 'the "3" controls tempo
  14. sound a,c
  15. next I
  16. ' One data statement per measure
  17. ' Second number in data = measure
  18. ' Example 430 = 3rd measure
  19. 410data 60,50,57,50,54,50 
  20. 420data 61,150
  21. 430data 41,50,56,50,52,50
  22. 440data 60,150
  23. 450data 54,75,57,25,56,25,54,25
  24. 460data 53,50,49,40,60,50
  25. 470data 41,25,57,25,56,75,54,25
  26. 480data 54,150
  27. 510data 60,50,57,50,54,50 
  28. 520data 61,150
  29. 530data 41,50,56,50,52,50
  30. 540data 60,150
  31. 550data 54,75,57,25,56,25,54,25
  32. 560data 53,50,49,40,60,50
  33. 570data 41,25,57,25,56,75,54,25
  34. 580data 54,200
  35. 590data 999,999
  36. 2000 if isrun then run "menu" then system
  37. ə